home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 63 / 063.d81 / timer boot (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1989-01-01  |  1.1 KB  |  31 lines
  1. 100 poke53280,.:poke53281,.:print"[147]"
  2. 110 gosub310: rem message
  3. 120 print"   [208]lease choose:"
  4. 130 print"     [158][201][159]nstall [212][201][205][197][210]"
  5. 140 print"     [158][210][159]eturn to [204][207][193][196][211][212][193][210]"
  6. 150 geta$:ifa$=""then150
  7. 160 ifa$="r"ora$="[210]"thenprint"[147]":goto250
  8. 170 ifa$<>"i"anda$<>"[201]"thengoto150
  9. 180 print"     [201][206][211][212][193][204][204][201][206][199] [212][201][205][197][210]..."
  10. 190 sys57812"main",8,0:poke780,.:poke781,.:poke782,160:sys65493
  11. 200 sys57812"control",8,0:poke780,.:poke781,.:poke782,207:sys65493
  12. 210 print"[147]programmers helper loaded."
  13. 220 print"sys 52992 to start."
  14. 230 end
  15. 240 :
  16. 250 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  17. 260 if er<>63 then print"[147]":end
  18. 270 a$="hello connect":q$=chr$(34):poke53281,7:poke53280,7:print"[147]"
  19. 280 print"[158]load"q$a$q$",8"
  20. 290 print"run":poke631,13:poke632,13:poke198,2:end
  21. 300 :
  22. 310 poke214,16:print:print"  [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][152]"
  23. 320 fori=1to3:print"                                      ":next
  24. 330 print"        [208]ublished on [204][207][193][196][211][212][193][210] #63     "
  25. 340 print"      Subscriptions 1-800-831-2694    "
  26. 350 print"                                      "
  27. 360 print"  [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
  28. 370 au$="[212] [201] [205] [197] [210]":poke214,18:print:printspc(20-len(au$)/2)"[152]"au$
  29. 380 au$="[194]y [193]ndrew [204]ittle  ([195]) 1989":poke214,19:print
  30. 390 printspc(20-len(au$)/2)"[152]"au$"":return
  31.